www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Down.asp
<!--#include file="player.asp" --> <style type="text/css"> <!-- body{font-size:14px;line-height:25px;} a:link, a:visited {font-size: 14px;color:#3e3e3e;text-decoration:none;} a:hover {font-size:14px;color:#3e3e3e;text-decoration: underline;} --> </style> <BODY> <% '=================================================================================================================== '软件名称:云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ:489234,2813712 '程序版权:云网互动科技有限公司 '程序开发:云网互动科技有限公司 '官方网站:http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息; ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== Set RS=Server.CreateObject(YWNT_TMS_RS) SQL="select DownUrl from YWNT_TMS_Sever Where ID="&SeverID Rs.open sql,Conn,1,1 If Not RS.Eof Then DownUrl=RS("DownUrl") End If RS.Close Set RS = Nothing Set RS=Server.CreateObject(YWNT_TMS_RS) sql="select DownUrl from YWNT_TMS_DownUrl where MovieID="&ID&" order by id asc" RS.open sql,conn,1,1 do while not RS.eof Downi=Downi+1 response.write "<p> <img src="""&GetConfig("WebiInstallDir")&"Function/Images/online_down.gif""><a href="""&DownUrl&RS("DownUrl")&""" >" response.write " <span class=""STYLE9"">"&MovieName&"---第"&Downi&"集</span></a></p>" &vbcrlf RS.movenext loop RS.Close Set RS = Nothing%>